home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 August / CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso / disc2 / programr / vbasic / health.exe / CHILD1C.FRM < prev    next >
Text File  |  1993-07-23  |  4KB  |  145 lines
  1. VERSION 2.00
  2. Begin Form MDIChild1C 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "CLINICAL DATA"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   180
  7.    ClientTop       =   1920
  8.    ClientWidth     =   9600
  9.    Height          =   4425
  10.    Left            =   120
  11.    LinkTopic       =   "Form3"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4020
  14.    ScaleWidth      =   9600
  15.    Top             =   1575
  16.    Width           =   9720
  17.    Begin VBedit BEdit1C 
  18.       CellHeight      =   500
  19.       CellWidth       =   500
  20.       CombBaseLine    =   500
  21.       CombEndHeight   =   360
  22.       CombEndMarker   =   0   'False
  23.       CombHeight      =   270
  24.       FontBold        =   0   'False
  25.       FontItalic      =   0   'False
  26.       FontName        =   "Arial"
  27.       FontSize        =   24
  28.       FontStrikethru  =   0   'False
  29.       FontUnderline   =   0   'False
  30.       Height          =   855
  31.       InflateBottom   =   180
  32.       InflateLeft     =   180
  33.       InflateRight    =   180
  34.       InflateTop      =   240
  35.       Left            =   840
  36.       TabIndex        =   4
  37.       Top             =   0
  38.       Version         =   268435458
  39.       Width           =   7695
  40.    End
  41.    Begin AniPushButton AniButton3C 
  42.       BackColor       =   &H00C0C0C0&
  43.       Cycle           =   2  '2-state 1/2 & 1/2
  44.       Height          =   480
  45.       Left            =   8880
  46.       PictDrawMode    =   1  'Autosize control
  47.       Picture         =   CHILD1C.FRX:0000
  48.       TabIndex        =   3
  49.       Top             =   120
  50.       Width           =   480
  51.    End
  52.    Begin VHedit HEdit1C 
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "Arial"
  56.       FontSize        =   24
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   555
  60.       InflateBottom   =   270
  61.       InflateLeft     =   270
  62.       InflateRight    =   270
  63.       InflateTop      =   270
  64.       Left            =   8640
  65.       TabIndex        =   2
  66.       Top             =   720
  67.       Version         =   268435458
  68.       Visible         =   0   'False
  69.       Width           =   495
  70.    End
  71.    Begin ListBox List3 
  72.       BackColor       =   &H00FF0000&
  73.       FontBold        =   -1  'True
  74.       FontItalic      =   0   'False
  75.       FontName        =   "Arial"
  76.       FontSize        =   12
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       ForeColor       =   &H00FFFFFF&
  80.       Height          =   3450
  81.       Index           =   1
  82.       Left            =   4800
  83.       TabIndex        =   1
  84.       Top             =   1080
  85.       Width           =   4695
  86.    End
  87.    Begin ListBox List3 
  88.       BackColor       =   &H00FF0000&
  89.       FontBold        =   -1  'True
  90.       FontItalic      =   0   'False
  91.       FontName        =   "Arial"
  92.       FontSize        =   12
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       ForeColor       =   &H00FFFFFF&
  96.       Height          =   3450
  97.       Index           =   0
  98.       Left            =   0
  99.       TabIndex        =   0
  100.       Top             =   1080
  101.       Width           =   4815
  102.    End
  103. End
  104. Sub AniButton3C_Click ()
  105. Select Case anibutton3C.Value
  106.     Case 2
  107.             editswap bedit1C, hedit1C, 1
  108.             hedit1C.Visible = -1
  109.             bedit1C.Visible = 0
  110.          
  111.          appendflag3 = -1
  112.  
  113.     Case 1
  114.             editswap bedit1C, hedit1C, 2
  115.             hedit1C.Visible = 0
  116.             bedit1C.Visible = -1
  117.          
  118.          appendflag3 = 0
  119. End Select
  120.  
  121.  
  122.  
  123. End Sub
  124.  
  125. Sub List3_Click (Index As Integer)
  126. If appendflag3 Then
  127.         Select Case Index
  128.         Case 0
  129.         LIST3(1).AddItem LIST3(0).List(LIST3(0).ListIndex) + "  " + bedit1C.Text
  130.         Case 1
  131.         LIST3(1).RemoveItem LIST3(1).ListIndex
  132.  
  133.         End Select
  134. Else
  135.         Select Case Index
  136.         Case 0
  137.         LIST3(1).AddItem LIST3(0).List(LIST3(0).ListIndex)
  138.         Case 1
  139.         LIST3(1).RemoveItem LIST3(1).ListIndex
  140.         End Select
  141. End If
  142.  
  143. End Sub
  144.  
  145.